Micom Basic 1995 October

home *** CD-ROM | disk | FTP | other *** search

/ Micom Basic 1995 October / CD [BM9510].bin / programs / lotus / lotus001.dsk / AUTOSTY.SMM < prev next >

Wrap

INI File | 1994-08-11 | 47.6 KB | 3,046 lines

[ver] 4 [sty] jmacro.sty [files] [charset] 82 SHIFTJIS (Windows) [revisions] 0 [prn] PostScript Printer [port] LPT1: [lang] 1 [desc] noautorun 772422282 85 699907907 3321 8 1075 8246 29 31 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Number List 6 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] TimesNewRomanPS 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial MT 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Outline1 9 [fnt] Arial MT 240 0 16384 [algn] 1 1 0 0 0 [spc] 33 288 1 72 0 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Outline2 11 [fnt] TimesNewRomanPS 200 0 49152 [algn] 1 1 216 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Outline2 0 0 [tag] Outline3 12 [fnt] Times New Roman 200 0 49152 [algn] 1 1 432 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 3 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline4 0 [fnt] TimesNewRomanPS 200 0 49152 [algn] 1 1 648 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 4 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Outline4 0 0 [tag] Outline5 0 [fnt] TimesNewRomanPS 200 0 49152 [algn] 1 1 864 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 5 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Outline5 0 0 [tag] Outline6 0 [fnt] TimesNewRomanPS 200 0 49152 [algn] 1 1 1080 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 6 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Outline6 0 0 [tag] Outline7 0 [fnt] TimesNewRomanPS 200 0 49152 [algn] 1 1 1296 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 7 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Outline7 0 0 [tag] Outline8 0 [fnt] TimesNewRomanPS 200 0 49152 [algn] 1 1 1512 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 8 0 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Outline8 0 0 [tag] Bullet 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 1 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Body Single 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] û{ò╢ 0 [fnt] û╛Æ⌐ 240 0 49152 [algn] 1 2 0 0 0 [spc] 17 0 2 0 0 2 100 [brk] 4 [line] 8 0 2 0 1 1 1 10 10 2 [spec] 0 0 0 2 1 0 0 0 1 [nfmt] 280 1 2 . , \ û{ò╢ 0 0 [tag] Bullet 1 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 144 1 648 1440 0 1 0 1 1 0 1 1440 10800 1 3 9360 [txt] Automated Style Sheet Macro Revision 70 Page <:P10,0,> of <:X3,16384;NumPages>6<:X~3,16384;NumPages> <:db<*!><* >> > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 8 53 0 48 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 108 0 27 32 0 1 0 65535 3 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 159 0 60 0 0 1 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 210 0 12 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 262 0 27 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 316 0 52 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 369 0 102 0 0 1 0 65535 77 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 373 0 37 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] @Outline1@declares and defines @Outline2@DEFINE MoveWindow() DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1) @Outline2@DEFINE GetWindowRect() DllCall("user,GetWindowRect,HHN",%1,%2) @Outline2@DEFINE GetClientRect() DllCall("user,GetClientRect,HHN",%1,%2) @Outline2@Define ScreenToClient() DllCall("user,ScreenToClient,HHN", %1, %2) @Outline2@Define ClientToScreen() DllCall("user,ClientToScreen,HHN", %1, %2) @Outline2@Define ShowWindow() DllCall("User,ShowWindow,AHH",%1,%2) @Outline2@Define EnableWindow() DllCall("User,EnableWindow,AHH",%1,%2) @Outline2@define SetFocus() DllCall("user,SetFocus,HH", %1) @Outline2@define HFONT "Setfont:hFont" @Outline2@define SendMessage(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4) @Outline2@define WM_SETFONT 0x30 @Outline2@define WM_USER 0x0400 @Outline2@define BM_SETCHECK 0x0401 @Outline2@define CreateFont() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14) @Outline2@define DeleteObject(handle) DllCall("gdi,DeleteObject,HH", %1) @Outline2@define GetActiveWindow() DllCall("user,GetActiveWindow,H") @Outline2@define SetWindowText() DllCall("user,SetWindowText,IHC", %1, %2) @Outline2@define TitleBarMsg() SetWindowText(GetActiveWindow(), %1) @Outline2@define GetWindowText() DllCall("user,GetWindowText,HHFH", %1, %2, %3) @Outline2@define MapDialogRect() DllCall("user,MapDialogRect,HHN", %1, %2) @Outline2@declare fillboxfields(target); @Outline2@declare torchfields(target); @Outline2@declare initcapit(string); @Outline1@function main(arg) @Outline2@<:f,2TimesNewRomanPS,>'verify this is a clean untitled @Outline3@<:f200,1òWÅÇû╛Æ⌐,143,143,143>'if GetOpenFileName$() !="" or Filechanged(0,0) != 0<:f> @Outline3@<:f,2TimesNewRomanPS,>if arg = "" @Outline3@<:f,2TimesNewRomanPS,> message("<:f,1û╛Æ⌐,>é▒é╠╧╕█é═Ä⌐ô«╜└▓┘╝░─ùpé╠╧╕█é┼é╖üB╠º▓┘/ÉVïKì∞É¼é┼╧╕█Ä└ìsé≡æIæ≡é╡é─é▓Ägùpé¡é╛é│éóüB<:f><:f,2TimesNewRomanPS,>") @Outline3@<:f,2TimesNewRomanPS,> exit function @Outline3@<:f,2TimesNewRomanPS,>endif @Outline2@<:f,2TimesNewRomanPS,>hourglass(1) @Outline2@<:f,2TimesNewRomanPS,>ignorekeyboard(2) @Outline2@<:f,2TimesNewRomanPS,>rmac=getrunningmacrofile$() @Outline2@<:f,2TimesNewRomanPS,>'burn power fields if entry is in AMIPRO2.INI @Outline3@<:f,2TimesNewRomanPS,>burnfields=getprofilestring$("AutoStyleSheets", "NoQuestions", "AMIPRO2.INI") @Outline3@<:f,2TimesNewRomanPS,>if burnfields = 1 @Outline3@<:f,2TimesNewRomanPS,> torchfields("as_") @Outline3@<:f,2TimesNewRomanPS,> exit function @Outline3@<:f,2TimesNewRomanPS,>elseif burnfields = "" @Outline3@<:f,2TimesNewRomanPS,> writeprofilestring("AutoStyleSheets", "NoQuestions", 0, "AMIPRO2.INI") @Outline3@<:f,2TimesNewRomanPS,>endif @Outline2@<:f,2TimesNewRomanPS,>datagood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI") @Outline2@<:f,2TimesNewRomanPS,>SingleStep(0) @Outline2@<:f,2TimesNewRomanPS,>if datagood != 1 @Outline2@<:f,2TimesNewRomanPS,> macpath=GetMacPath$() @Outline2@<:f,2TimesNewRomanPS,> collector="{macpath}collect.smm" @Outline2@<:f,2TimesNewRomanPS,> calli collector() @Outline2@<:f,2TimesNewRomanPS,>endif @Outline2@<:f,2TimesNewRomanPS,>'font handler @Outline3@<:f,2TimesNewRomanPS,>AllocGlobalVar(HFONT, 1) @Outline3@<:f,2TimesNewRomanPS,>SetGlobalVar(HFONT, 0) @Outline2@<:f,2TimesNewRomanPS,>cnt = GetPowerFieldCount(0) @Outline2@<:#226,9360><:f,2TimesNewRomanPS,>if (0 != cnt) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,> result=fillboxfields("as_def") @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> if result=0 or result = 2 @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> goto blowout @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> endif @Outline2@<:#227,9360><:f,2TimesNewRomanPS,> result = fillboxfields("as_user") @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> if result=0 or result = 2 @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> goto blowout @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> endif @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>else @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>' message("<:f,1òWÅÇû╛Æ⌐,>╠¿░┘─▐é¬éáéΦé▄é╣é±<:f,2TimesNewRomanPS,>") @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>blowout: @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>torchfields("as_") @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>mark="as_starttext" @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>result=MarkBookMark(mark, 4002 ) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>if result = 1 @Outline2@<:#227,9360><:f,2TimesNewRomanPS,> MarkBookMark(mark, 4004 ) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>'font bailout @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>font = GetGlobalVar$(HFONT) ' If we created @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>if (0 != font) ' the font. @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> DeleteObject(font) ' Delete it @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>endif @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>freeglobalvar(HFONT) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>DocInfo("" "" 1 ) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>hourglass(0) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>end function<:f> @Outline1@<:#281,9360>FUNCTION fillboxfields(target) @Outline2@<:#227,9360>onerror blowout @Outline2@<:#227,9360>cnt = GetPowerFieldCount(0) @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>if cnt = 0 @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> exit function @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#227,9360><:f,2TimesNewRomanPS,>rmac=getrunningmacrofile<:f>$() @Outline2@<:#227,9360>allocglobalvar("target", 1) @Outline2@<:#227,9360>setglobalvar("target", target) @Outline2@<:#227,9360>dim fields(cnt) @Outline2@<:#227,9360>dim globvars(1) @Outline2@<:#227,9360><:f200,2TimesNewRomanPS,255,0,0>dim echovars(1)<:f> @Outline2@<:#227,9360>numglobs=0 @Outline2@<:#227,9360>GetPowerFields(0, &fields) @Outline2@<:#227,9360>'load &globvars @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>mergefieldspresent=0 @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>for i = 1 to cnt @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> pftype = StrField$(fields(i), 2, ",") 'get the power <+!>field type<-!> @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> if pftype=12 'there is a merge field in the doc. @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> mergefieldspresent=1 @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> pffield = StrField$(fields(i), 3, ",") 'get the power <+!>field<-!> @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable <-!>in the PF @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> showtype=strfield$(varname, 6, "_") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if lcase$(showtype)="address2" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> secondaddressline=1<:f> @Outline3@<:#226,9360> <:f,2TimesNewRomanPS,>endif @Outline3@<:#681,9360><:f,2TimesNewRomanPS,> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f,2TimesNewRomanPS,>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", <:f200,2TimesNewRomanPS,255,0,0> "echo_") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> targlen=klen(target) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if kmid$(varname, 1, targlen)=target <:f200,2TimesNewRomanPS,255,0,0>and showtype != "echo" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> numglobs=numglobs+1 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> result=arrayinsert(&globvars, numglobs, fields(i)) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if result = 0 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> goto blowout @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> <:f200,2TimesNewRomanPS,255,0,0>arrayinsert(&echovars, numglobs, echovar) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>next @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>'determine if we have any suitable PFs @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>if numglobs=0<:f> @Outline4@<:#240,9360>' message(target) @Outline4@<:#240,9360> fillboxfields = 3 'this attempt failed, but don't blow out completely @Outline4@<:#240,9360> exit function @Outline4@<:#240,9360>endif @Outline2@<:#240,9360>'fill dialog box with labels & pre-build @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>allocglobalvar("numglobs", 1) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>setglobalvar("numglobs", numglobs) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>arraysort(&globvars, 3, "_") 'sort the array on varnum @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>for i = 1 to numglobs @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> pffield = StrField$(globvars(i), 3, ",") 'get the power <+!>field<-!> @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable <-!>in the PF @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> quotechar=chr$(34) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> varlabel=StrField$(globvars(i), 2, quotechar) 'get the <+!>label <-!>for the variable @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> showtype=strfield$(varname, 6, "_") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> profilestringstuff="" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if showtype != (-1) and showtype != "echo" and showtype != "" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> profilestringstuff=getprofilestring$("AutoStyleSheets", showtype, "AMIPRO2.INI") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if lcase$(showtype) = "address1" and secondaddressline !=1 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if address2 != "" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> profilestringstuff=strcat$(profilestringstuff, " " address2) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> allocglobalvar(varname, 1) @Outline3@<:#480,9360><:f,2TimesNewRomanPS,> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f,2TimesNewRomanPS,>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", <:f200,2TimesNewRomanPS,255,0,0> "echo_") @Outline3@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0> allocglobalvar(echovar, 1) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if lcase$(kmid$(varlabel, 1, 5)) = "type " @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> lenwithouttype=klen(varlabel) - 5 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> varlabel=right$(varlabel, lenwithouttype) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if lcase$(right$(varlabel, 5)) = " here" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> lenwithouthere=klen(varlabel) - 5 @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> varlabel=kmid$(varlabel, 1, lenwithouthere) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> varlabel=initcapit(varlabel) @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> filledit(1000 + i, "{varlabel}:") @Outline3@<:#226,9360><:f,2TimesNewRomanPS,> filledit(8000 + i, profilestringstuff) @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>next @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>SetDlgCallBack(0,"{rmac}!PreBuild") @Outline3@<:#480,9360><:f,2TimesNewRomanPS,>'SetDlgCallBack(23,"{rmac}!savesty") 'keep this only if save as style sheet should be a callback @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>box=dialogbox(".", "autostyle") @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>fillboxfields = box 'set this function's return value to the ID returned by the box @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>if box= 0 or box =2 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,> goto blowout @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>'set global vars & update fields @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>for i = 1 to numglobs @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> contents=getdialogfield$(8000 +i) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> pfid = StrField$(globvars(i), 1, ",") 'get the power <+!>field id<-!> @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> pftype = StrField$(globvars(i), 2, ",") 'get the power <+!>field type<-!> @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> pffield = StrField$(globvars(i), 3, ",") 'get the power <+!>field<-!> @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable <-!>in the PF @Outline3@<:#480,9360><:f,2TimesNewRomanPS,> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f,2TimesNewRomanPS,>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", <:f200,2TimesNewRomanPS,255,0,0> "echo_") @Outline3@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0> setglobalvar(echovar, contents) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> setglobalvar(varname, contents) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> if mergefieldspresent=1 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> result=GoToPowerField(pfid, pftype) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>' FieldUpdate(pfid, pftype, pffield) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> FieldEvaluate() @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>next @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>if mergefieldspresent = 0 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> fieldupdateall() @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>blowout: @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> call torchfields(target) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> call freeglobs(target) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> freeglobalvar("target") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> freeglobalvar("numglobs") @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>if box=3 @Outline2@<:#227,9360><:f,2TimesNewRomanPS,> runlater("{rmac}!<:Zbuttoncheck>AmiButtonCheck<:Z~buttoncheck>(25550, 1)"<:f>, 0.1<:f,2TimesNewRomanPS,>) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,> runlater("{rmac}!AmiUIGray(25550, 0)"<:f>, 0.1<:f,2TimesNewRomanPS,>) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,> runlater("{rmac}!AmiUIGray(25551, 0)"<:f>, 0.1<:f,2TimesNewRomanPS,>) @Outline2@<:#227,9360><:f,2TimesNewRomanPS,> runlater("{rmac}!AmiUIGray(25975, 0)"<:f>, 0.1<:f,2TimesNewRomanPS,>) @Outline2@<:#240,9360><:f,2TimesNewRomanPS,> pause(008) @Outline2@<:#240,9360><:f,2TimesNewRomanPS,> result = SaveAsNewStyle @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>END FUNCTION<:f> @Outline1@<:#283,9360>function AmiButtonCheck(ID, State) @Outline2@<:#240,9360>hdlg = getactivewindow() @Outline2@<:#240,9360>idnew = GetDlgItem(Hdlg, ID) @Outline2@<:#240,9360>AppSendMessage(idnew, BM_SETCHECK, state, 0) @Outline2@<:#227,9360>end function @Outline1@<:#283,9360>function AmiUIGray(ID, State) @Outline2@<:#240,9360>hdlg = getactivewindow() @Outline2@<:#240,9360>idnew = GetDlgItem(Hdlg, ID) @Outline2@<:#227,9360>enablewindow(idnew, state) @Outline2@end function @Outline1@<:#283,9360>FUNCTION freeglobs(target) @Outline2@<:#240,9360>'singlestep(0) @Outline2@<:#240,9360>targlen=klen(target) @Outline2@<:#240,9360>numglobs=getglobalvarcount() @Outline2@<:#240,9360>dim globnuke(numglobs) @Outline2@<:#240,9360>getglobalvarnames(&globnuke) @Outline2@<:#240,9360>for i = 1 to numglobs @Outline2@<:#240,9360> if kmid$(globnuke(i), 1, targlen)=target @Outline2@<:#240,9360> freeglobalvar(globnuke(i)) @Outline2@<:#240,9360> endif @Outline2@<:#240,9360>next @Outline2@<:#240,9360>end function @Outline1@<:#283,9360>FUNCTION torchfields(target) @Outline2@<:#240,9360>'singlestep(0) @Outline2@<:#240,9360>cnt = GetPowerFieldCount(0) @Outline2@<:#240,9360>if (0 != cnt) @Outline2@<:#240,9360> dim fields(cnt) @Outline2@<:#240,9360> GetPowerFields(0, &fields) @Outline2@<:#240,9360> for i = 1 to cnt @Outline2@<:#240,9360> pfid = StrField$(fields(i), 1, ",") @Outline2@<:#240,9360> pftype = StrField$(fields(i), 2, ",") @Outline2@<:#240,9360> pffield = StrField$(fields(i), 3, ",") 'get the power <+!>field<-!> @Outline2@<:#240,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable <-!>in the PF @Outline2@<:#240,9360> targlen=klen(target) @Outline2@<:#240,9360> if kmid$(varname, 1, targlen)=target @Outline2@<:#240,9360> FieldRemove(pfid, pftype); @Outline2@<:#240,9360> endif @Outline2@<:#240,9360> next @Outline2@<:#240,9360>else @Outline2@<:#269,9360>' message("<:f,1òWÅÇû╛Æ⌐,>╠¿░┘─▐é¬éáéΦé▄é╣é±<:f>") @Outline2@<:#240,9360>endif @Outline2@<:#240,9360>END FUNCTION @Outline1@<:#283,9360>function savesty(Hdlg,id,dummy) 'pitch if not a callback @Outline2@<:#240,9360>SaveAsNewStyle @Outline2@<:#240,9360>setfocus(hdlg) @Outline2@<:#240,9360>end function @Outline1@<:#283,9360>Function PreBuild(Hdlg,id,dummy) @Outline2@<:#240,9360>target=getglobalvar$("target") @Outline2@<:#240,9360>numglobs=getglobalvar$("numglobs") @Outline2@<:#240,9360>'font handler @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 80, 0, 0, 0, 32, "System") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>if (Font) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> hctl = GetDlgItem(hDlg, 1050) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> hctl2 = GetDlgItem(hDlg, 1060) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> SendMessage(hctl, WM_SETFONT, font, 0) @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> SendMessage(hctl2, WM_SETFONT, font, 0) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>for i =8000 to 8009 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> hctl = GetDlgItem(hDlg, i) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> SendMessage(hctl, WM_SETFONT, font, 0) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>next @Outline3@<:#227,9360><:f,2TimesNewRomanPS,> SetGlobalVar(HFONT, Font) @Outline3@<:#226,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>'name the box and show the right buttons and static text @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>CurStyleSheet = GetDocInfo$(3) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>CurStyleSheet = ucase$(CurStyleSheet) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>lb=chr$(091) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>rb=chr$(093) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>CurStyleSheet = strcat$(lb, CurStyleSheet, rb) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>if target ="as_def" @Outline3@<:#245,9360><:f,2TimesNewRomanPS,> TitleBarMsg("<:f><:f,1û╛Æ⌐,>├▐╠½┘─Åεò±<:f,2TimesNewRomanPS,>") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> ShowWindow(GetDlgItem(Hdlg,3), 1) ' show the save as button @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text @Outline3@<:#245,9360><:f,2TimesNewRomanPS,> L1="<:f><:f,1û╛Æ⌐,>é▒é╠└▓╠▀é╠ò╢Åæé≡ì∞É¼é╖éΘé╜é╤é╔òKùvé╚Åεò±é┼é╖é╠é┼<:f,2TimesNewRomanPS,>" @Outline3@<:#245,9360><:f,2TimesNewRomanPS,> L2="<:f><:f,1û╛Æ⌐,>ôⁿù═é╡é─<:f><:f,1û╛Æ⌐,>é¡é╛é│éóüB<:f,2TimesNewRomanPS,>OK<:f,1û╛Æ⌐,>╬▐└▌é≡ëƒé╣é╬é▒é╠ò╢Åæé╔é╛é»Åεò±é≡<:f,2TimesNewRomanPS,>" @Outline3@<:#245,9360><:f,2TimesNewRomanPS,> L3="<:f><:f,1û╛Æ⌐,>æ}ôⁿ<:f><:f,1û╛Æ⌐,>é╡é▄é╖üBò█æ╢╬▐└▌é≡ëƒé╣é╬ÉVé╡éó╜└▓┘╝░─é╔é▒é╠<:f,2TimesNewRomanPS,>" @Outline3@<:#245,9360><:f,2TimesNewRomanPS,> L4="<:f><:f,1û╛Æ⌐,>Åεò±é≡ò█æ╢<:f><:f,1û╛Æ⌐,>é╡é▄é╖üB<:f,2TimesNewRomanPS,>" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> helptext="{L1}{L2}{L3}{L4}" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> filledit(1050, helptext) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>else @Outline3@<:#245,9360><:f,2TimesNewRomanPS,> TitleBarMsg("<:f><:f,1û╛Æ⌐,>Æ╟ë┴Åεò±<:f,2TimesNewRomanPS,>") @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> ShowWindow(GetDlgItem(Hdlg,3), 0) ' hide the save as button @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text @Outline3@<:#245,9360><:f,2TimesNewRomanPS,> L1="<:f><:f,1û╛Æ⌐,>é▒é╠ò╢Å═é╔òKùvé╚Åεò±é≡<:f,2TimesNewRomanPS,> " @Outline3@<:#245,9360><:f,2TimesNewRomanPS,> L2="<:f><:f,1û╛Æ⌐,>ôⁿù═é╡é─é¡é╛é│éó<:f,2TimesNewRomanPS,>" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> helptext="{L1}{L2}{L3}{L4}" @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> filledit(1050, helptext) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>'hide static text and edit fields @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>for i = (numglobs + 1) to 9 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> stid=1000 + i @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> ShowWindow(GetDlgItem(Hdlg, stid), 0) ' hide the static text field @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> ebid=8000 + i @Outline3@<:#240,9360><:f,2TimesNewRomanPS,> ShowWindow(GetDlgItem(Hdlg, ebid), 0) ' hide the edit box @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>next @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>'size the box @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>DIM rect(4) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>GetWindowRect(hDlg,&rect) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>x=rect(1) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>y=rect(2) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>xL=rect(3) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>yL=rect(4) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>MoveBase=24 @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>moveshrink=MoveBase * (9-numglobs) @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>if target="as_def" @Outline4@<:#240,9360><:f,2TimesNewRomanPS,> moveshrink=moveshrink + 22 @Outline4@<:#240,9360><:f,2TimesNewRomanPS,> max=145 @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>else @Outline4@<:#240,9360><:f,2TimesNewRomanPS,> moveshrink=moveshrink + 50 'shrink extra amount for less 1050 text @Outline4@<:#227,9360><:f,2TimesNewRomanPS,> max=217 @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>if moveshrink <;> max @Outline4@<:#240,9360><:f,2TimesNewRomanPS,> moveshrink = max @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline3@<:#227,9360><:f,2TimesNewRomanPS,>MoveWindow(hDlg,x,y,xL-x,yL-(y+moveshrink)) @Outline2@<:#226,9360><:f,2TimesNewRomanPS,>'move the helptext box @Outline3@<:f,2TimesNewRomanPS,>hwndCtrl=GetDlgItem(hdlg, 1050) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>DIM rect2(4) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>DIM rect3(4) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>GetWindowRect(hwndCtrl,&rect2) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>ScreenToClient(hDlg, &rect2) 'convert 1050's screen-relative coordinates to hdlg-relative coordinates @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>GetClientRect(hwndCtrl, &rect3) 'get xL & yL numbers (length & width of 1050) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>x=rect2(1) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>y=rect2(2) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>xL=rect3(3) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>yL=rect3(4) @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>moveshrink=MoveBase * (9-numglobs) @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>if target="as_def" @Outline4@<:#240,9360><:f,2TimesNewRomanPS,> max=137 @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>else @Outline4@<:#240,9360><:f,2TimesNewRomanPS,> max=167 @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>if moveshrink <;> max @Outline4@<:#240,9360><:f,2TimesNewRomanPS,> moveshrink = max @Outline4@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline3@<:#240,9360><:f,2TimesNewRomanPS,>MoveWindow(hwndCtrl,x,y-moveshrink,xL,yL) @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>END FUNCTION @Outline1@<:#278,9360><:f,2TimesNewRomanPS,>function initcapit(string) @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>if instr(0, " SSN ", string) != 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,> initcapit=string @Outline2@<:#240,9360><:f,2TimesNewRomanPS,> exit function @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>endif @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>firstchar=kmid$(string, 1,1) @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>restchars=lcase$(kmid$(string, 2,(klen(string) - 1))) @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>initcapit=strcat$(firstchar, restchars) @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>end function<:f> @Outline2@<:#240,9360> @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>DIALOG autostyle @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>-2134376448 23 90 53 262 181 "" "" "_LETTER1.STY Information" @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>FONT 8 "System" @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 8 92 12 8001 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 23 92 12 8002 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 37 92 12 8003 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 51 92 12 8004 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 65 92 12 8005 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 80 92 12 8006 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 94 92 12 8007 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 108 92 12 8008 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>110 122 92 12 8009 1350631552 "edit" "" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>204 7 54 12 1 1342373889 "button" "OK" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>204 24 54 12 2 1342373888 "button" "<:f,1û╛Æ⌐,>╖¼▌╛┘<:f,2TimesNewRomanPS,>" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>204 40 54 12 3 1342373888 "button" "<:f,1û╛Æ⌐,>ò█æ╢<:f,2TimesNewRomanPS,>..." 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 10 96 8 1001 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>1:" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 24 94 8 1002 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>2:" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 39 98 8 1003 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>3:" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 53 96 8 1004 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>4:" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 67 98 8 1005 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>5:" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 81 98 8 1006 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>6:" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 96 98 8 1007 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>7:" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 110 96 8 1008 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>8:" 0 @Outline2@<:#245,9360><:f,2TimesNewRomanPS,>10 124 98 8 1009 1342177280 "static" "<:f,1û╛Æ⌐,>╠¿░┘─▐<:f,2TimesNewRomanPS,>9:" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>6 138 252 35 1050 1342177280 "static" "Default box text" 0 @Outline2@<:#240,9360><:f,2TimesNewRomanPS,>6 138 252 35 1060 1342177280 "static" "User box text" 0 @Outline2@<:f,2TimesNewRomanPS,>END DIALOG<:f><:f> > [Embedded] 00036022 > [macsum] 10 main 0 1 10 24 fillboxfields 1393 1 26 81 AmiButtonCheck 5749 2 3 200 AmiUIGray 5964 2 3 205 freeglobs 6185 1 5 210 torchfields 6582 1 9 222 savesty 7235 3 1 242 PreBuild 7357 3 28 246 initcapit 10911 1 3 336 autostyle 11229 0 -1 346 [macse] 14 main 6 0 7 "" 18 0 11 00000140 0 3 "é▒é╠╧╕█é═Ä⌐ô«╜└▓┘╝░─ùpé╠╧╕█é┼é╖üB╠º▓┘/ÉVïKì∞É¼é┼╧╕█Ä└ìsé≡æIæ≡é╡é─é▓Ägùpé¡é╛é│éóüB" 6 1 15 9 0 296 1 0 32 2 0 802 13 8 2 0 286 "AutoStyleSheets" "NoQuestions" "AMIPRO2.INI" 13 8 3 6 3 5 1 18 0 11 00000311 16 torchfields "as_" 6 1 15 9 10 00000396 6 3 7 "" 18 0 11 00000396 0 287 "AutoStyleSheets" "NoQuestions" 0 "AMIPRO2.INI" 0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI" 13 8 4 0 4 0 17 20 6 4 5 1 18 1 11 00000600 17 21 29 5 macpath 0 295 13 8 5 17 22 29 6 collector 7 "{5}collect.smm" 8 6 17 23 16 "{6}" 17 26 0 271 "Setfont:hFont" 1 17 27 0 264 "Setfont:hFont" 0 17 28 29 7 cnt 0 1304 0 13 8 7 17 29 5 0 6 7 18 1 11 00001003 17 30 29 8 result 16 fillboxfields "as_def" 13 8 8 17 31 6 8 5 0 18 0 6 8 5 2 18 0 1 2 11 00000869 17 32 10 00001003 17 34 16 fillboxfields "as_user" 13 8 8 17 35 6 8 5 0 18 0 6 8 5 2 18 0 1 2 11 00000990 17 36 10 00001003 10 00001003 17 42 16 torchfields "as_" 17 43 29 9 mark 7 "as_starttext" 8 9 17 44 2 466 1 "{9}" 4002 13 8 8 17 45 6 8 5 1 18 0 11 00001172 17 46 2 466 1 "{9}" 4004 17 49 29 10 font 0 265 "Setfont:hFont" 13 8 10 17 50 5 0 6 10 18 1 11 00001304 17 51 0 284 "gdi,DeleteObject,HH" "{10}" 17 53 0 266 "Setfont:hFont" 17 54 2 109 1 "" "" 1 17 55 0 296 0 6 1 15 17 56 9 14 fillboxfields 29 0 target 29 1 fillboxfields 17 1 20 00003960 17 2 29 2 cnt 0 1304 0 13 8 2 17 3 6 2 5 0 18 0 11 00000152 6 1 15 9 17 6 29 3 rmac 0 802 13 8 3 17 7 0 271 "target" 1 17 8 0 264 "target" "{0}" 17 9 6 2 29 4 fields 21 4 [X] 17 10 5 1 29 5 globvars 21 5 [X] 17 11 5 1 29 6 echovars 21 6 [X] 17 12 29 7 numglobs 5 0 8 7 17 13 0 1305 0 &4 17 15 29 8 mergefieldspresent 5 0 8 8 29 9 i 5 1 8 9 17 16 6 2 6 9 18 2 12 00000539 10 00001436 5 1 6 9 3 0 8 9 10 00000457 17 17 29 10 pftype 6 9 22 4 0 20 [X] 2 "," 13 8 10 17 18 6 10 5 12 18 0 11 00000652 17 19 5 1 8 8 17 21 29 11 pffield 6 9 22 4 0 20 [X] 3 "," 13 8 11 17 22 29 12 varname 0 20 "{11}" 3 " " 13 8 12 17 23 29 13 showtype 0 20 "{12}" 6 "_" 13 8 13 17 24 0 17 "{13}" 13 7 "address2" 18 0 11 00000914 17 25 29 14 secondaddressline 5 1 8 14 17 27 29 15 echovar 0 20 "{12}" 1 "_" 13 0 20 "{12}" 2 "_" 13 0 20 "{12}" 3 "_" 13 0 20 "{12}" 4 "_" 13 0 20 "{12}" 5 "_" 13 0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_" 13 8 15 17 28 29 16 targlen 0 134 "{0}" 13 8 16 17 29 0 133 "{12}" 1 "{16}" 13 6 0 18 0 6 13 7 "echo" 18 1 1 1 11 00001423 17 30 6 7 5 1 3 0 8 7 17 31 29 17 result 6 9 22 4 0 1041 &5 "{7}" [X] 13 8 17 17 32 6 17 5 0 18 0 11 00001423 17 33 10 00003960 17 34 0 1041 &6 "{7}" "{15}" 10 00000506 17 39 6 7 5 0 18 0 11 00001501 17 41 5 3 8 1 6 1 15 9 17 45 0 271 "numglobs" 1 17 46 0 264 "numglobs" "{7}" 17 47 0 1043 &5 3 "_" 5 1 8 9 17 48 6 7 6 9 18 2 12 00001675 10 00003050 5 1 6 9 3 0 8 9 10 00001593 17 49 6 9 22 5 0 20 [X] 3 "," 13 8 11 17 50 0 20 "{11}" 3 " " 13 8 12 17 51 29 18 quotechar 0 39 34 13 8 18 17 52 29 19 varlabel 6 9 22 5 0 20 [X] 2 "{18}" 13 8 19 17 53 0 20 "{12}" 6 "_" 13 8 13 17 54 29 20 profilestringstuff 7 "" 8 20 17 55 6 13 5 -1 18 1 6 13 7 "echo" 18 1 6 13 7 "" 18 1 1 1 1 1 11 00002334 17 56 0 286 "AutoStyleSheets" "{13}" "AMIPRO2.INI" 13 8 20 17 57 0 17 "{13}" 13 7 "address1" 18 0 6 14 5 1 18 1 1 1 11 00002334 17 58 29 21 address2 0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI" 13 8 21 17 59 6 21 7 "" 18 1 11 00002334 17 60 0 16 "{20}" " " "{21}" 13 8 20 17 64 0 271 "{12}" 1 17 65 0 20 "{12}" 1 "_" 13 0 20 "{12}" 2 "_" 13 0 20 "{12}" 3 "_" 13 0 20 "{12}" 4 "_" 13 0 20 "{12}" 5 "_" 13 0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_" 13 8 15 17 66 0 271 "{15}" 1 17 67 0 133 "{19}" 1 5 13 0 17 [X] 13 7 "type " 18 0 11 00002740 17 68 29 22 lenwithouttype 0 134 "{19}" 13 5 5 3 1 8 22 17 69 0 807 "{19}" "{22}" 13 8 19 17 71 0 807 "{19}" 5 13 0 17 [X] 13 7 " here" 18 0 11 00002914 17 72 29 23 lenwithouthere 0 134 "{19}" 13 5 5 3 1 8 23 17 73 0 133 "{19}" 1 "{23}" 13 8 19 17 75 16 initcapit "{19}" 13 8 19 17 76 5 1000 6 9 3 0 0 31 [X] "{19}:" 17 77 5 8000 6 9 3 0 0 31 [X] "{20}" 10 00001642 17 79 0 41 0 "{3}!PreBuild" 17 81 29 24 box 0 26 "." "autostyle" 13 8 24 17 82 6 24 8 1 17 83 6 24 5 0 18 0 6 24 5 2 18 0 1 2 11 00003227 17 84 10 00003960 5 1 8 9 17 87 6 7 6 9 18 2 12 00003319 10 00003906 5 1 6 9 3 0 8 9 10 00003237 17 88 29 25 contents 5 8000 6 9 3 0 0 27 [X] 13 8 25 17 89 29 26 pfid 6 9 22 5 0 20 [X] 1 "," 13 8 26 17 90 6 9 22 5 0 20 [X] 2 "," 13 8 10 17 91 6 9 22 5 0 20 [X] 3 "," 13 8 11 17 92 0 20 "{11}" 3 " " 13 8 12 17 93 0 20 "{12}" 1 "_" 13 0 20 "{12}" 2 "_" 13 0 20 "{12}" 3 "_" 13 0 20 "{12}" 4 "_" 13 0 20 "{12}" 5 "_" 13 0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_" 13 8 15 17 94 0 264 "{15}" "{25}" 17 95 0 264 "{12}" "{25}" 17 96 6 8 5 1 18 0 11 00003893 17 97 0 1306 "{26}" "{10}" 13 8 17 17 99 2 571 1 10 00003286 17 102 6 8 5 0 18 0 11 00003960 17 103 2 267 1 17 106 16 torchfields "{0}" 17 107 16 freeglobs "{0}" 17 108 0 266 "target" 17 109 0 266 "numglobs" 17 110 6 24 5 3 18 0 11 00004336 17 111 0 285 "{3}!AmiButtonCheck(25550, 1)" 0.1 17 112 0 285 "{3}!AmiUIGray(25550, 0)" 0.1 17 113 0 285 "{3}!AmiUIGray(25551, 0)" 0.1 17 114 0 285 "{3}!AmiUIGray(25975, 0)" 0.1 17 115 0 274 008 17 116 24 305 13 8 17 6 1 15 17 118 9 14 AmiButtonCheck 29 0 ID 29 1 State 29 2 AmiButtonCheck 17 1 29 3 hdlg 0 284 "user,GetActiveWindow,H" 13 8 3 17 2 29 4 idnew 0 44 "{3}" "{0}" 13 8 4 17 3 0 1036 "{4}" 1025 "{1}" 0 6 2 15 17 4 9 14 AmiUIGray 29 0 ID 29 1 State 29 2 AmiUIGray 17 1 29 3 hdlg 0 284 "user,GetActiveWindow,H" 13 8 3 17 2 29 4 idnew 0 44 "{3}" "{0}" 13 8 4 17 3 0 284 "User,EnableWindow,AHH" "{4}" "{1}" 6 2 15 17 4 9 14 freeglobs 29 0 target 29 1 freeglobs 17 2 29 2 targlen 0 134 "{0}" 13 8 2 17 3 29 3 numglobs 0 299 13 8 3 17 4 6 3 29 4 globnuke 21 4 [X] 17 5 0 300 &4 29 5 i 5 1 8 5 17 6 6 3 6 5 18 2 12 00000273 10 00000378 5 1 6 5 3 0 8 5 10 00000192 17 7 6 5 22 4 0 133 [X] 1 "{2}" 13 6 0 18 0 11 00000365 17 8 6 5 22 4 0 266 [X] 10 00000240 6 1 15 17 11 9 14 torchfields 29 0 target 29 1 torchfields 17 2 29 2 cnt 0 1304 0 13 8 2 17 3 5 0 6 2 18 1 11 00000634 17 4 6 2 29 3 fields 21 3 [X] 17 5 0 1305 0 &3 29 4 i 5 1 8 4 17 6 6 2 6 4 18 2 12 00000269 10 00000621 5 1 6 4 3 0 8 4 10 00000188 17 7 29 5 pfid 6 4 22 3 0 20 [X] 1 "," 13 8 5 17 8 29 6 pftype 6 4 22 3 0 20 [X] 2 "," 13 8 6 17 9 29 7 pffield 6 4 22 3 0 20 [X] 3 "," 13 8 7 17 10 29 8 varname 0 20 "{7}" 3 " " 13 8 8 17 11 29 9 targlen 0 134 "{0}" 13 8 9 17 12 0 133 "{8}" 1 "{9}" 13 6 0 18 0 11 00000608 17 13 2 227 1 "{5}" "{6}" 10 00000236 10 00000634 6 1 15 17 19 9 14 savesty 29 0 Hdlg 29 1 id 29 2 dummy 29 3 savesty 24 305 17 2 0 284 "user,SetFocus,HH" "{0}" 6 3 15 17 3 9 14 PreBuild 29 0 Hdlg 29 1 id 29 2 dummy 29 3 PreBuild 17 1 29 4 target 0 265 "target" 13 8 4 17 2 29 5 numglobs 0 265 "numglobs" 13 8 5 17 4 29 6 Font 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 80 0 0 0 0 "System" 13 8 6 17 5 6 6 11 00000723 17 6 29 7 hctl 0 44 "{0}" 1050 13 8 7 17 7 29 8 hctl2 0 44 "{0}" 1060 13 8 8 17 8 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0 17 9 0 284 "user,SendMessage,HHHHJ" "{8}" 48 "{6}" 0 29 9 i 5 8000 8 9 17 10 5 8009 6 9 18 2 12 00000584 10 00000687 5 1 6 9 3 0 8 9 10 00000499 17 11 0 44 "{0}" "{9}" 13 8 7 17 12 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0 10 00000551 17 14 0 264 "Setfont:hFont" "{6}" 17 17 29 10 CurStyleSheet 0 279 3 13 8 10 17 18 0 18 "{10}" 13 8 10 17 19 29 11 lb 0 39 091 13 8 11 17 20 29 12 rb 0 39 093 13 8 12 17 21 0 16 "{11}" "{10}" "{12}" 13 8 10 17 22 6 4 7 "as_def" 18 0 11 00001546 17 23 0 284 "user,GetActiveWindow,H" 13 0 284 "user,SetWindowText,IHC" [X] "├▐╠½┘─Åεò±" 17 24 0 44 "{0}" 3 13 0 284 "User,ShowWindow,AHH" [X] 1 17 25 0 44 "{0}" 1060 13 0 284 "User,ShowWindow,AHH" [X] 0 17 26 29 13 L1 7 "é▒é╠└▓╠▀é╠ò╢Åæé≡ì∞É¼é╖éΘé╜é╤é╔òKùvé╚Åεò±é┼é╖é╠é┼" 8 13 17 27 29 14 L2 7 "ôⁿù═é╡é─é¡é╛é│éóüBOK╬▐└▌é≡ëƒé╣é╬é▒é╠ò╢Åæé╔é╛é»Åεò±é≡" 8 14 17 28 29 15 L3 7 "æ}ôⁿé╡é▄é╖üBò█æ╢╬▐└▌é≡ëƒé╣é╬ÉVé╡éó╜└▓┘╝░─é╔é▒é╠" 8 15 17 29 29 16 L4 7 "Åεò±é≡ò█æ╢é╡é▄é╖üB" 8 16 17 30 29 17 helptext 7 "{13}{14}{15}{16}" 8 17 17 31 0 31 1050 "{17}" 10 00001896 17 33 0 284 "user,GetActiveWindow,H" 13 0 284 "user,SetWindowText,IHC" [X] "Æ╟ë┴Åεò±" 17 34 0 44 "{0}" 3 13 0 284 "User,ShowWindow,AHH" [X] 0 17 35 0 44 "{0}" 1060 13 0 284 "User,ShowWindow,AHH" [X] 0 17 36 7 "é▒é╠ò╢Å═é╔òKùvé╚Åεò±é≡ " 8 13 17 37 7 "ôⁿù═é╡é─é¡é╛é│éó" 8 14 17 38 7 "{13}{14}{15}{16}" 8 17 17 39 0 31 1050 "{17}" 6 5 5 1 3 0 8 9 17 42 5 9 6 9 18 2 12 00001998 10 00002227 5 1 6 9 3 0 8 9 10 00001916 17 43 29 18 stid 5 1000 6 9 3 0 8 18 17 44 0 44 "{0}" "{18}" 13 0 284 "User,ShowWindow,AHH" [X] 0 17 45 29 19 ebid 5 8000 6 9 3 0 8 19 17 46 0 44 "{0}" "{19}" 13 0 284 "User,ShowWindow,AHH" [X] 0 10 00001965 17 49 5 4 29 20 rect 21 20 [X] 17 50 0 284 "user,GetWindowRect,HHN" "{0}" &20 17 51 29 21 x 5 1 22 20 8 21 17 52 29 22 y 5 2 22 20 8 22 17 53 29 23 xL 5 3 22 20 8 23 17 54 29 24 yL 5 4 22 20 8 24 17 55 29 25 MoveBase 5 24 8 25 17 56 29 26 moveshrink 6 25 5 9 6 5 3 1 4 0 8 26 17 57 6 4 7 "as_def" 18 0 11 00002658 17 58 6 26 5 22 3 0 8 26 17 59 29 27 max 5 145 8 27 10 00002708 17 61 6 26 5 50 3 0 8 26 17 62 5 217 8 27 17 64 6 26 6 27 18 3 11 00002765 17 65 6 27 8 26 17 67 6 23 6 21 3 1 6 24 6 22 6 26 3 0 3 1 0 284 "user,MoveWindow,HHHHHHH" "{0}" "{21}" "{22}" [X] [X] 1 17 69 29 28 hwndCtrl 0 44 "{0}" 1050 13 8 28 17 70 5 4 29 29 rect2 21 29 [X] 17 71 5 4 29 30 rect3 21 30 [X] 17 72 0 284 "user,GetWindowRect,HHN" "{28}" &29 17 73 0 284 "user,ScreenToClient,HHN" "{0}" &29 17 74 0 284 "user,GetClientRect,HHN" "{28}" &30 17 75 5 1 22 29 8 21 17 76 5 2 22 29 8 22 17 77 5 3 22 30 8 23 17 78 5 4 22 30 8 24 17 79 6 25 5 9 6 5 3 1 4 0 8 26 17 80 6 4 7 "as_def" 18 0 11 00003367 17 81 5 137 8 27 10 00003387 17 83 5 167 8 27 17 85 6 26 6 27 18 3 11 00003444 17 86 6 27 8 26 17 88 6 22 6 26 3 1 0 284 "user,MoveWindow,HHHHHHH" "{28}" "{21}" [X] "{23}" "{24}" 1 6 3 15 17 89 9 14 initcapit 29 0 string 29 1 initcapit 17 1 0 808 0 " SSN " "{0}" 13 5 0 18 1 11 00000128 17 2 6 0 8 1 6 1 15 9 17 5 29 2 firstchar 0 133 "{0}" 1 1 13 8 2 17 6 29 3 restchars 0 134 "{0}" 13 5 1 3 1 0 133 "{0}" 2 [X] 13 0 17 [X] 13 8 3 17 7 0 16 "{2}" "{3}" 13 8 1 6 1 15 17 8 9 DIALOG autostyle -2134376448 23 90 53 262 181 "" "" "_LETTER1.STY Information" FONT 8 "System" 110 8 92 12 8001 1350631552 "edit" "" 0 110 23 92 12 8002 1350631552 "edit" "" 0 110 37 92 12 8003 1350631552 "edit" "" 0 110 51 92 12 8004 1350631552 "edit" "" 0 110 65 92 12 8005 1350631552 "edit" "" 0 110 80 92 12 8006 1350631552 "edit" "" 0 110 94 92 12 8007 1350631552 "edit" "" 0 110 108 92 12 8008 1350631552 "edit" "" 0 110 122 92 12 8009 1350631552 "edit" "" 0 204 7 54 12 1 1342373889 "button" "OK" 0 204 24 54 12 2 1342373888 "button" "╖¼▌╛┘" 0 204 40 54 12 3 1342373888 "button" "ò█æ╢..." 0 10 10 96 8 1001 1342177280 "static" "╠¿░┘─▐1:" 0 10 24 94 8 1002 1342177280 "static" "╠¿░┘─▐2:" 0 10 39 98 8 1003 1342177280 "static" "╠¿░┘─▐3:" 0 10 53 96 8 1004 1342177280 "static" "╠¿░┘─▐4:" 0 10 67 98 8 1005 1342177280 "static" "╠¿░┘─▐5:" 0 10 81 98 8 1006 1342177280 "static" "╠¿░┘─▐6:" 0 10 96 98 8 1007 1342177280 "static" "╠¿░┘─▐7:" 0 10 110 96 8 1008 1342177280 "static" "╠¿░┘─▐8:" 0 10 124 98 8 1009 1342177280 "static" "╠¿░┘─▐9:" 0 6 138 252 35 1050 1342177280 "static" "Default box text" 0 6 138 252 35 1060 1342177280 "static" "User box text" 0 00036047